home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / tosysmrg.arc / SYSOP.MRG < prev    next >
Encoding:
Text File  |  1988-05-25  |  2.6 KB  |  66 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against orig.bas to produce 161a.bas
  3. * orig.bas:  Date 3-25-1988  Size 213760 bytes
  4. * ------------[ Created 05-25-1988 11:30:28 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 4562   IF USER.SECURITY.LEVEL < SYSOP.MENU.SECURITY.LEVEL THEN _   'TO051102
  8.           IF INSTR(MESSAGE.RECORD$,"^READ^") > 0 AND NOT UH THEN _
  9.              PASSWORD.FAILED = TRUE : _
  10.              IF FORWARD OR REVERSE THEN _
  11.                 GOTO 4635
  12. * REPLACING old line(s) by new
  13. 4582   PG = FALSE
  14.        IF MID$(Z$,1,1) = "!" THEN _
  15. * ------[ first line different ]------
  16.           IF USER.SECURITY.LEVEL < SYSOP.MENU.SECURITY.LEVEL THEN _ 'TO051102
  17.              PG = TRUE : _
  18.              PASSWORD.SAVE$ = MID$(Z$,2) + _
  19.                               " " : _
  20.              ATTEMPTS.ALLOWED = 0 : _
  21.              GOSUB 665
  22. * REPLACING old line(s) by new
  23. 4618  IF B$(1) = "C" AND CAN.CHG.SEC THEN _
  24.          GOSUB 4665
  25.       IF B$(1) = "T" THEN _
  26.          CALL SETTHREAD (CURRENT.MESSAGE, SUBJECT$) : _
  27.          IF Q > 0 THEN _
  28.             GOTO 4350
  29. '
  30. ' *****************************************************************************
  31. ' *  KILL CURRENT MESSAGE                                                     *
  32. ' *****************************************************************************
  33. '
  34. * ------[ first line different ]------
  35.       IF KILL.MESSAGE AND _                                              'TO051102
  36.        (UH OR (USER.SECURITY.LEVEL >= SYSOP.MENU.SECURITY.LEVEL)) THEN _ 'TO051102
  37.          IF USER.SECURITY.LEVEL >= OPT.SEC(9) THEN _
  38.             CALL PUTMATTR : _
  39.             MESSAGE.TO.KILL = CURRENT.MESSAGE : _
  40.             GOSUB 3950 : _
  41.             CALL GETMATTR : _
  42.             GOTO 4625 _
  43.          ELSE VIOLATION$ = "MORE KILL" : _
  44.               GOSUB 1380 : _
  45.               GOTO 4625
  46. '
  47. ' *****************************************************************************
  48. ' *  REPLY TO CURRENT MESSAGE                                                 *
  49. ' *****************************************************************************
  50. '
  51. * REPLACING old line(s) by new
  52. * ------[ first line different ]------
  53. 5322 IF ACTIVE.USER.NAME$ = "SYSOP" THEN _                   'TO051101
  54.         GOSUB 5700
  55. * REPLACING old line(s) by new
  56. 10595 CALL GETIME
  57.       GOSUB 13700
  58. * ------[ first line different ]------
  59.       IF ACTIVE.USER.NAME$ = "SYSOP" AND MAIN.USER.FILE.INDEX = 0 THEN _ 'TO051101
  60.          GOSUB 5700
  61.       IF CONFERENCE.MODE THEN _
  62.          GOSUB 5380
  63.       IF FIRST.NAME$ <> "" THEN _
  64.          CALL UPDATEU
  65.       GOTO 13540
  66.